tt a tt St Ht tt HH HH HH Ha 
tt a tt a a tt i 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


tt tt tt st 4 Ht Ht Ht Ht Ht Ht HH HH 
AAA a 
| LE) 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F 1LE**]D**MTHDATAN 


MM MM 
MM Lala 
MMMM MMMM 
MMMM MMMM 
Mm UMM OM 
MM UMM OMA 
Lala MM 
Leal MM 
MM MM 
MM MM 
MM MM 
sla bala 
Leal Lala 
MA MM 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LLLLLLLLLL 
LLLLLLLLLL 


BAA a 
AAA i 


oo 
ee 
bas 
bat ae 


ea bo Dh Pd ee De Be Bd ad BB Re 


ae be Be es Re Dn fe et ed Bs et Gee 
bet te 


[oatmeal 


bb 
ene bee 


HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
HHHHHHHHHH 
HHHHHHHHHH 
HH HH 
HH HH 
HH HH 
HH HH 
HH H 
HH HH 
SSSSSSSS 
SSSSSSSS 
SS 
SS 
SS 
SS 
SSSSSS 
SSSSSS 
SS 
SS 
SS 
SS 
SSSSSSSS 
SSSSSSSS 


ovO0VvT’7 


cov VvVvV7T779 
vov0VTeo 


AAAAAA 
AAAAAA 
AA BA 
AA AA 
AA AA 
AA ad 
AA AA 
Aa AA 
AAAAAAAAAA 
AAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AA AA 


44 
4 
44 
44 


AA At 
AHHH A 


AAAAAA 
AAAAAA 
Aa BA 
AA AM 
AA ab 
AA AA 
AA AA 
AA Aa 
AAAAAAAAAA 
AAAAAAAAAA 
AA Aa 
AA AA 
AA AA 
AA AA 


Nz 


HSDATAN 

ble of contents 
(4) 0 
(33 : 
(8) 4 
(9) 5 
(10) § 
(11) 4 
(12) 83 


G6 15 
; Floating Point Arc Tangent Functions 16-SEP-1984 01:14:33 VAX/VMS Macro V04-00 


DECLARATIONS : Declarative Part of Bodule 

MTHSDATAN = Standard Single Precision Floating Arc Tangent 
MTHSDATAN2 = Standard Double Anes ba Arctangent With 2 Arguments 
MTHSDATAN_R7 = Special DATAN routin 


MTHSDATAND = Standard Single Precision Floating Arc Tangent 
MTHSDATAND2 = Standard Double Floating Arctangent With 2 Arguments 
MTHSDATAND_R7 = Special DATAND routine 
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2-004 ° ° paises ee Bee YRTHRIL. SRCIATMDATAN.MAR: 1 ° (1) 
-TITLE MTHSDATAN : rageting Point Arc ae op Functions 
3: (DATAN, DATAN2,DATAND ,DATAND2) 


.IDENT /2-004/ : File: ATHDATAN.MAR EDIT: RNH2004 


. 
. 
FRRRAAAARRAER AREA AAA AAE AAA EERE AAEAAEAARAEAAARERAERAAAAAREAAAAEARAAEAREARERAETE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONL ACCORDANCE WITH TH M F SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aaePORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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g FACILITY: MATH LIBRARY 
; ABSTRACT: 


; MTHSDATAN is a function which returns the floating point arctangent 
; value (in radians) of its double precision floating point argument. 
; MTHSDATAN2 is two argument double floating arctangent. The call is 
; standard call-by-reference. 

; MTHSDATAN_R7 is a special routine which is the same as MTHSDATAN 
; except a faster non-standard JSB call is used with the argument in 
; RO and no registers are saved. 
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value (in errors: of its double Ag betes floating point argument. 


; MTHSDATAND2 is two argument double floating arctangent. The call is 
; standard call-by-reference. 


; MTHSDATAND_R7 is a special routine which is the same as MTHSDATAND 
; except a faster non-standard JSB call is used with the argument in 
; RO and no registers are saved. 


; VERSION: 01 

; HISTORY: 

; AUTHOR: 

3 Peter Yuo, 15-Oct-76: Version 01 


; MODIFIED BY: 


: MTHSDATAND is a function which returns the floating point arctangent 
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33 Ol-1 Peter Yuo, 22-May-77 


61 ; VERSION: 02 
8 t HISTORY: 
0 64 ; AUTHOR: 
44 #1 ; Bob Hanek, 05-Jun-81: Version 02 
0000 6 : MODIFIED BY: 
0000 «68: 
0000 «69: 
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71 
; ALGORTTWALC DIFFERENCES FROM FP=11/C ROUTINE: 
ue : - To avoid various flags subroutine calls have been used. 
6 ; Edit History for Version 01 of MTHSDATANDATAN2 
a 
6 0 ; 01-1 Code sa aving after code review March 1977 
00 13 In DATAN2, fix references to OWN constants so DATAN2 will work. 
4 ¢ 3 01-3 In “ip DATAN2 comparison of exponents of arguments X and 
4 ? : Y is with 58 instead of 26. 
000 5 ; 01-8 = Signal INVALID ARG TO — dt * ras if x=y=0. TNH 16-June-78 
0000 36 3; 01-9. = Fix comments. TNH 16- 
0000 87 ; 01-10 = Move .ENTRY mask to one header. TNH tiga, 4g 
0000 88 ; 1-011 - ae version number and coh ht noti BS 16-NOV-78 
0000 89 ; I~hi8 - Change, | mth og I to MTHSK_INVARGMAT. JBS 07-DEC-78 
0000 90 ; 1-013 = Add o the CT directty ve. 9395 22-DEC-78 
0000 91 ; 1-014 = Declare ascnshe, SBL 1 lt 
0000 38 3 1-015 = Added deree entry points. RNH 15-MAR-1981 
0000 93 ; 
0000 94 ; 
44 32 ; Edit History for Version 01 of MTHSDATANDATAN2 
0000 39 3 
0000 98 ; 5-00 - Use G* addressing for externals. SBL 24-Aug-1981 
0000 99 ; 2-003 - Changed MTHSDATAND2 entry to MTHSDATAN2D in order to conform 
0000 100 ; to the original specification. RNH 05-Oct-81 
0000 101 ; 2-004 - Un-did previous edit to be consistent with PL/1 
0000 19 : - Modified small orement proces tng to avoid a microcode bug 
0000 103; in the FPA. RNH 18-Dec 
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~SBTTL DECLARATIONS 3; Declarative Part of Module 


SEP 1:146:3 


: INCLUDE FILES: MTHJACKET.MAR, MTHATAN.MAR 


: EXTERNAL SYMBOLS: 


-DSABL GBL 

eEXTRN MTHSK_INVARGMAT 

-EXTRN MTHSSSIGNAL ; Signal SEVERE error 

-EXTRN MTHSSAB_ATAN ; Gobal table used by all Arctangent 


F routines. Part of MTHATAN.MAR 


EQUATED SYMBOLS: 


ACMASK = “M<IV, R2, R3, R4, RS, R6, R7> ; . ENTRY register mask, int 
: ovf enabled 


; PSECT DECLARATIONS: 


-PSECT _MTHSCODE PIC,SHR,LONG, EXE ,NOWRT 
3 program section for math routines 


: MACROS: none 


; OWN STORAGE: none 


3; EXTERNALS: 

? -EXTRN MTHSSSIGNAL ; Signal a severe error 
-EXTRN MTHSK_INVARGMAT ; Invalid argument to math Library 
DSABL GBL ; No other externals allowed 


; CONSTANTS: 


as a a et td td = = = = = ot = = = = = = 2 2 2 8 


EE WAIWIWIWIWIWI WII AIR PONOPOPUNUNNUNND 2 2 QO 


WN SO ODNAUES WN $$ O ODNAUES WN) (OO ODONOAUS WN OWOONOAOM 
. 


AX/VMS Macro V04-00 Page 


ws 


00000000 D Fares f 
BS79BS7A Bc CE63ED7 
ass 4 ALA 


68 1408 
DC7B37BC 422F3F03 


Ber ospE 60 
692(B1 


8 

ADF 

ees 635 
CF7SAADA 696 
0 g50 D13 

Bue 255F 9F63A2 
C6A74C33 ASOASF 
SUAB?OAS S720TFGA 
neBe5198 P2 DSFSA 
BES C7 

Hregcep Te 
ear BASS ei ASS 
0078096 BF AF SFEC 


99090000 F8EB4026 
D85 DF4 an 


BS5B6B9DC F438401 


63E3F1F 
D207 
OSFIE 
C3547 
19EEA 
12745 
280 
7A 


Peerage, Basan? 


00000000 (BD84095 


os i 
T 
: 
0 
0 
0 
0 
0 
0 
0 
3 
001 
ef 
3 
004 
4 
4 
5 
5 
6 
6 


0 
3 
0 
: 
: 
2 
| 


oat 
ARA 
0 
° 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
: 


; 
7? 
7 
8 
8 
9 
09 
9 


OO, 


LERRSSSRARRSSSS 


T8ns 


3; Entry 
3 Entry 
3; Entry 


3; Entry 


OO OOO OO 00900 0909 09 09 09 09 09 09 SII NII SINS NPA AAA AAAA AMMUNITION & & 


oowuno 
BESS SES SESS SESE S EERE S aaa ISSE SESE SSO OR TOSEES * 


PRD eB a 8 kh a ht ts ss ts Sb 9 8 3 9 


Each — 
and DATAN 


arctangent 
aligned. 


- ALIGN 


og ee 
Entry 


3; Entry : 
3; Entry 


3; Entry 


3; Entry 
3; Entry 


3; Entry i0 


from the ATHSSAB TA 


Point Arc Tangent ienehtans 16-SEP ~1388 9:16:33 
; Declarative Part of Modul 6=-SEP-1984 11:21: 


‘AX/VMS Macro V04-00 
MTHRTL.SRCIJMTHDATAN.MAR; 1 


Page 


eeeeeererereerereerererene Constants for DATAN *#teeeeereerererererereeeet 


ay the ae TABLE contains the the values of XHI, DATAN_XHI_LO 
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2-004 HECLARATIONS ; Declarative Part of Modul 6-SEP-1984 11:21:4 MTHRTL.SRCJMTHDATAN.MAR; 1 (6) 
IE : : PARA SAALALALALELALALALLALAS & Constants for ATAND RARAAAAAAAAARAARAARARARAARAEARAARAAAEE 
1E § ; Each entry of the DATAND_TABLE contains the the values of XHI, DATAND_XHI_LO 
1E 60 ; and DATAND_XHI_HI respectively. The reote is indexed by a pointer obtained 
1E 61 ; from the ATHSSAB_ATAN table. The MTHSSAB_ATAN table is common to all of the 
1E 86 ; arctangent routines and is included as eo" of the MTHATAN module. NOTE: For 
if o : performance reasons it is important to have the DATAN_TABLE Longword aligned. 
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e entry 
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a. Compute DATAN(X) = X + X#Q(X**#2), where Q is a polynomial 
of degree 6. 
4. If X < 0 then 
a. Compute Y = DATAN(!X!) using steps 1 to 3. 
b. Set DATAN(X) = -Y. 


CALLING SEQUENCE: 
Arctangent.wd.v = MTHSDATAN(x.rd.r) 
INPUT PARAMETERS: 


MTHSDATAN ; Floating Point Arc Tangent Functions -SEP-1984 01:14:3 AX/VMS Macro V04-09 P 
2-004 iThSSATAN’= Standard Single Precision Fl g- Seb} 984 OF dti23 ERTHRTL . SRCIMTHDATAN. MAR: 1 = 3) 
f $ ~SBTTL MTHSDATAN = Standard Single Precision Floating Arc Tangent 
C 6 
C ? 34+ 
: ? ; FUNCTIONAL DESCRIPTION: 
: 6 ; DATAN = double precision floating point function 
: ? i DATAN is computed using the following steps: 
¢ 72: 1. If X > 11 then 
C ZS 3 a. Let W= 1/X. 
: 4 3 b. Compute DATAN(W) = WeP(We*2), where P is a polynomial of 
3 egree 6. 
‘8 76 ; C» set DATAN(X) = pi/2 = DATAN(W) 
ia!) 77 ; 2. If 3/32 =< X =< 11 then 
CO 78 ; a. Obtain XHI by table look-up. 
co 79 ; b. Compute Z = (X = XHI)/(1 + X*xXHI). 
3 H 3 $< no a cima = 2*P(Z2**2), where P is a polynomial of 
3 egree 6. 
CO 3 : d. Obtain DATAN(XHI) by table +i + DATAN(XHI) will have 
co 83 ; two parts = the high order bits, DATAN_XHI_HI, and the low 
co $ : order bits, DATAN_XHI_LO. 
85 ; e. Compute DATAN(X) = DATAN.XHI_HI + (DATAN_XHI_LO + DATAN(Z)). 
33 $ 3. If 0 =< X < 3/32 then 


00006004 


00000004 : define longword multiplier 


LONG = 

x = 1 * LONG ; x is an angle in radians 
IMPLICIT INFUTS: none 
OUTPUT PARAMETERS: 

VALUE: double precision floating arctangent angle of the argument 
IMPLICIT OUTPUTS: none 
SIDE EFFECTS: 
Signals: none 
NOTE: This procedure disables floating point underflow, enable ar apd 


overflow, causes no floating overflow or other arithmetic traps, an 
preserves enables across the call. 
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2-004 MTHSDATAN = Standard Single Precision Fl 6-SEP=1984 11:21:4 MTHRTL.SRCJMTHDATAN.MAR; 1 (7) 
ist 
4OFC 4 ¢ -ENTRY MTHSDATAN, ACMASK 3; standard call-by-reference entry 
; 4 i; disable DV (and FU), enable Iv 
424 MTHSFLAG_JACKET ; flag that this is a jacket procedure 


6D O0000000'GF 9E MOVAB G*MTHSSJACKET_HND, (FP) 
5 pos peneear address to jacket 


3; handler 


:; in case of an error in special JSB 
3; routine 

; RO/R1 = arg 

3 call special DATAN rountine 

3; return - result in RO 


MOVD  ax(AP), RO 
BSBB MTHSDATAN_R7 
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: DATAN2 


If Y = 0 or X/Y > 2**57, DATAN 
If Y > 0 and X/Y =< 
If ¥ < 0 and X/Y =< 


; CALLING SEQUENCE: 


19" 360-1388 91:14:33 y 

6-SEP=-1984 11:21:4 MTHRTL.SRCJMTHDATAN.MAR; 1 
~SBTTL MTHSDATAN2 = Standard Double Floating Arctangent With 2 Arguments 
; FUNCTIONAL DESCRIPTION: 


2¢ 
*#57, DATAN 
**57, DATAN 


Mro>x< 


AX/VMS Macro Vv04-00 Page 


= double precision floating point function 
; DATAN2(X,Y) is computed as following: 


) 
gn X) + DATAN(X/Y) 


Arctangent2.wd.v = MTHSDATAN2(x.rd.r, y.rd.r) 


; INPUT PARAMETERS: 


1 * LONG 
2 * LONG 


; x is the first argument 
3; y is the second argument 


3; SIDE EFFECTS: See description of MTHS$DATAN 


.ENTRY MTHSDATAN2, ACMASK 
MTHSFLAG_JACKET 


MOVAB G*MTHSSJACKET_HND, (FP) 
MOVD ax(AP), RO 
MOVD @y(AP), R2 

Test if Y = 0 or X/Y > 2257 
BEQL INF 
BICW #*X807F, Rg. R4 
BICW #*X807F, R2, RS 
SUBW R5, R4 
CMPW R4, #58*128 
BGTR INF 

Test if Y>Oory<0 
TSTW R 
BGTR ABPLUS 
TSTw 
BGEQ A1PLUS 


=< 24257 


Sete Ge te 


; RS = 
> RG = 
; compare R4 wi 

; if X/Y¥ > 2**57, branch to INF 


Sete te te 


standard call-by-reference entry 
disable DV (and FU), enable IV 
flag that this is a jacket procedure 


set handler address to jacket 
handler 


in case of an error in special JSB 
routine 
RO/R1 = argl 
R2/R3 = 


arg2 


; branch to INF if Y = 0 
RG 


= exponent (XxX) 
exponent (Y) 
exponent(X) - exponent(yY) 


test the et of Y 

branch to AZPLUS if Y > 0 
test the oie of xX 

branch to AIPLUS if X >= 0 
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BSBB = MTHSDATAN_R7D 
SUBD  D_PI, RO 


; Y < 0 and X > O and X/Y =< 2**57 


AtPLus: 
BSBB = MTHSDATAN_R7D 
ADDD RO 


; Y > 0 and X/Y =< 2*#57 


h2PLus: 
3 MTHSDATAN_R7D 


Y = 0 or X/Y > 2**57 


ine: 
TSTW RO 
BGTR 1$ 
BEQL 2$ 
MOVD D_MPI_OVER_2, RO 
RET 

1$ MOVD D_PI_OVER_2, RO 
RET 


s@ 
3; Here if both X = 


~m 
on 


ASHQ #15, #1, RO 


MOVZBL SRTHSK INVARGMAT, 
CALS » G*ATHSSSIGNAL 


71986 $1:21:43 EATHNTL. sae 


0 and Y = 0. Signal 


; R a = DATAN(X/Y) 
; RO/R1 = =PI + DATAN(X/Y) 
> return 


: RO/R1 
; RO/R1 
return 


DATAN(X/Y) 
PI + DATAN(X/Y) 


3; RO/R1 
; return 


= DATAN(X/Y) 


/Y) = =PI/2 
; return 


3; RO/R1 
; return 


= DATAN(X/Y) = PI/2 


INVALID ARG TO MATH LIBRARY 


can change if t hey we want to co 
code for INVALID my 
Signal SEVERE erro 


Bete Ge Se Be Ge 


v04-00 
RTHDATAN.MAR; 1 


RO/R1 = reserved operand, copied 
to CHFSL_MCH go pe so handlers 


nt inue 
TO MATH C IBRARY 
return if a hendler says SS$_CONTINUE 
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; Float 
MTHSDATAN_R 


-SBTTL MTHSDATAN_R7 = Special DATAN routine 
; Special DATAN = used by the standard routine, and directly. 


3; CALLING SEQUENCES: 

: nove anythin * weep in RO:R7 

JSB MTHSDATAN_R7 

return with resul= in RO/R1 
This routine is written to avoid causing any integer overflows, 

floating overflows, or floating underflows or divide by 0 conditions, 


; ; input in RO/R1 
: whether enabled or not. 


Note: 


PERE ES PWWWWIWIIIronoronon) 
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GOOD QDODAAAPAAAASAAAAAOSSHASAOOSAA 25 


4 
4 
4 
4 
4 
4 
4 
4 
04 
o036 8 
4 
6 2 ; REGISTERS USED: 
7 2 RO/R1 - choot te argument then result 
$4 2 R6 - Pointer into DATAN_TABLE 
b¢ 2 R6/R7 = Y during POLYD 
04 5 
Be 545 MTHSDATAN_R7D: : for local use only! 
50 52 66 04 5 DIVvD R2, RO 
04 547 MTHSDATAN_R?7:: : Special DATAN routine 
50 53 04 548 TSTF KO ; R6 = X = argument i 
76 «619 7 208 BLSS NEG_ARG ; Branch to negative argument Logic 
04 $31 : Argument is positive 
56 50 3€CO 8F A3 043D 228 , SUBW3 = #*X3ECO, RO, R6 ; Argument is less than 3/32, | 
47 19 0443 554 BLSS ; branch to small argument logic 
56 O36F 8F Bi 0445 555 CMPW #*XO56F, R6 ; Argument is greater that 11, 
43 19 Rete 228 BLSS LARGE _ARG ; branch to large argument logic 
aeee 228 > Logic for positive medium sized arguments. Get pointer into DATAN_TABLE. 
56 56 FC 8F 9C bees 560 : ROTL #-4, R6, RE 3; R6 = index into MTHSSAB_ATAN table 
FFFFFFOO BF CA 0451 361 BICL  #-256 : zero high order bits of index 
56 _00000000'GF46 90 rt $6 MOVB G*MTHSSAB_ATANCR6], R6 : R6 = offset into DATAN_TABLE 
FB9B CF46 sO 7E 460 $6 MOVAQ DATAN_TABLELR6], R6 ; R6 = pointer to XHI 
466 565 : Compute Z 
466 66 ; 
52. 8 7D #68 268 MOVa (R6)+, R2 ; R2 = XHI 
54 50 «6520 «65 (04 368 MULD3 Re, rb, R4 > R4 = XeXHI 
54 2 6 46D 8 ADDD #1, R4 3 R46 = 1 + XeXHI 
50 62 04 g 9 SUBD R2, RO 3; RO = X = XHI 
50 54 66 tf3 4 DIVOd R4, RO 3; RO = 2 = (X = MHID/(1 + XexXHI) 
$28 73 : Evaluate Z*P(Z*#2) 
7E 50 7D 476 7 mMOVa = RO, = (SP) ; Push Z onto the stack 
50 3 4 047 7 MULD RR. RO : Ze22 
FCCE CF «(06 «50s 75 4 u POLYD RO, #DATANLENT-1, DATANTAB! slits 
50 ge 64 04 ; 7 FULD (SP)+, R : RO = DATAN(Z) = Z*P(Z*#2) 
50 6 6 YY 0 ADDD (R6)+, R ; RQ = DATAN_XHI_LO + DATAN(Z) 
50 66 6 488 1 ADDD (R6), RO ; RO = DATANTX) = DATAN_XHI_HI + 
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2-004 MTHSDATAN_R7 = Special DATAN routine 6-SEP-1984 11:21:4 MTHRTL.SRCJMTHDATAN.MAR; 1 (9) 
4 é : (DATAN_XHI_LO + DATAN(Z)) 
05 0488 RSB ; Return 
tae aS 
0098 31 048C § SMALL: BRW SMALL_ARG ; Dummy Label used to avoid adding 
4BF ; an extra insrtuction in the 
oe ; 3 3 medium argument logic 
Oc8r $1 ; Large positive argument logic. 
8 F 38 LARGE _ARG: 
56 00000000 0000cC080 HA 29 of 4 Be pive 0. ere oe : RG = A -1/x 
FCAB CF 436006 =—550—s 75 O49F 396 POLYD RO, #DATANLEN1-1, DATANTAB | acai 
50 56 64 0605 598 MULD 6, _RO > RO = DATAN(W) = -WeP(Wwee2) 
50 FD34 CF 60 04a8 599 ADDD  D_PI_OVER_2_L0, RO : 
50 FD27 CF 60 O4AD 600 ADDD DZ -PIZOVER27HI, RO ; RO = DATAN(X) = PI/2 = DATAN(W) 
05 048 601 RSB ; Return 
O4B3 608 
0483 604 : Logic for negative arguments 
0483 605 ; 
peBs $09 NEG_A®G: 
56 50 BECO 8F A3 0483 608 ~ SUBW3 #*XBECO, RO, R6 ; Argument is less than 3/32, _ 
6C 19 0489 609 BLSS ase ARG ; branch to small argument Logic 
56 O36F 8F 81 048B 610 CMPW #°XO35F, R6 ; Argument is greater than 11, 
41 19 Bees ap BLSS N_LARGE_ARG ; branch to Large argument logic 
Ree ei$ : Logic for negative medium sized arguments. Get index into DATAN_TABLE. 
56 FC 8F 9C 04C2 615° ROTL  #-4, R6, R6 ; R6 = index into MTHS$$AB_ATAN table 
5 FFFFFFOO 8F CA OQ4C 616 BICL #- ; clear high order (unused) bits of ind 
56 00000000'GF46 90 O4CE 617 MOVB G*MTHSSAB prntne) R6 ; R6 = offset into DATAN_TABLE 
FB25 CF46 0 7E 0406 618 MOVAQ DATAN_TABCELR6J], R6 : R6 = pointer to XHI 
rt}: ? y ; Compute Z 
52 86 7D O4DC 6 : , MOVa. = (R6)+, R2 ; R2 = XHI 
54 50 52 65 ODF 6 MULD3 R2, RO, R4 > R4 = X*XHI 
54 08 54 63 OQ4€3 624 SUBD R4, #1, R4 3 R4 = 1 = X*XH] = 1 + X*C-XHI) 
28 ¢? 60 oH 625 R2, R ; RO = X + XHI = X = (-XHI) 
0 4 66 re 2 § : DIVD R4, R ; RO=72 
MED  6¢8 : Evaluate Z2*P(Z**2) 
7 0 7D O4€ED 630° mova = RO, - = (SP) ; Push Z onto the stack 
5 30 gS 4F 631 MULD - RO ; RO = Z##2 
FCS7 CF 3600650 75 ars 6 : POLYD RO, #DATANLEN1-1, DATANTAB! faa: 
0 E 64 O4F9 4 MULD (SP)+, RO F RO = DATAN(Z) = Z*P(Z2**2) 
a a re EGS Bata goa 1 Batanczy 
- He 6 $ E > (DATAN_XHI_LO * BATAN(2)) 
05 050 638 RSB ; Return 
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2-004 ATHSDATANSR? =" - Special DATAN routine =SEP=19 1384 ti df 3 tat ATHDATAN. MAR; 1 
$39 ; 
; rk 3; Logic for Large negative arguments 
5 7) 
5 645 N_LARGE “Arye 
56 00000000 0000C080 8F 50 67 O05 644 v3 R0. . 1, R6 3; R6 = W = TIX! 
> > $3 SOF 645 mu v: RO RO = wee2 
Fc37 CF «S06 C075 0513 646 POLYD R room ‘, DATANTAB! 
519 64 3 RO = P(Wee2) 
50 56 64 519 648 MULD : RO = DATAN(W) = WeP(Wee2) 
50 FCO CF 62 O51C 649 SUBD B bIN ROVER. 19. R0 : 
50 FCB3 CF 6 521 o29 SUBD D-PI ~OVER_ ; a DATAN(X) = DATAN(W) = PI/2 
0 5 § 51 RSB 3; Return 
Be O36 
527s 65 : 
0527 654 : Small argument Logic. 
0527 655 ; 
0527 $38 
0527 657 SMALL_ARG: 
56 50 7D 0527 658 MOVQ RO, 3; R6 = argument = X 
50 8000 8F AA O52A 659 BICW #K8000, RO ; RO = {XxX} 
50 3280 8F B81 OS2F 660 CMPW #°X3280, RO 3; Compare 2*-28 to :X! 
064 19 05354 661 BLSS 1$ : Branch to Polyinomial evaluation 
50 56 7D 0536 66 MOVe R6, RO ; Return with answer equal to argument 
05 0539 66 RSB 5 
053A 664 
50 50 64 B33h 665 1$: MULD RO, RO RO = X##2 
FC45 CF 06 50 75 0530 66 POLYD RO, #DATANLEN2-1, DATANTAB2 
B28 66 : RO = Q(X##2) 
50 56 64 o3¢ 668 MULD R6, RO ; RO = X#G(X##2) 
50 56 60 0546 669 ADDD R6, RO 3; RO = DATAN(X) = X + X#Q(X*#2) 
05 oH of RSB 3; Return 
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-SBTTL MTHSDATAND = Standard Single Precision Floating Arc Tangent 


MTHRTL.SRCJMTHDATAN.MAR; 1 


+4 

; FUNCTIONAL DESCRIPTION: 

; DATAND = double precision floating point function 
: DATAN is computed using the following steps: 


1. If X > 11 then 

Let W= 1/X. 
b. pn any DATAN(W) = WeP(Wee2), where P is a polynomial of 
C. set DATANCX) = pife = DATAN(W) 


Se SF =< X=s< iit 
a. ate XHI by ice look-up. 
b. Compute Z = (X = XHI)/(1 + X*XHI). 


XH 
Ce Compute DATAN(Z) = Z#P(Z**2), where P is a polynomial of 


6. 
d. oeeese gpg any ) oy table tg 6 DATAN(XHI) will have 
oe =~ - ne Net wg bits, DATAN_XHI_Hi, and the Low 
order s 
e. Compute BATANCKD” = DATAN: XHI_HI + (DATAN_XHI_LO + DATAN(Z)). 
3. If 0 =< X < 3/32 then 
a. Compute DATANQD = X + X#Q(X*#2), where Q is a polynomial 
degree 6. 
4. If Y <0 so 
a. Compute Y eee Xi) using steps 1 to 3. 
b. Set DATAN(X) = 


; CALLING SEQUENCE: 


Arctangent.wd.v = MTHSDATAND(x.rd.r) 


; INPUT PARAMETERS: 


= ; define longword multiplier 
= 1 * LONG ; x is an angle in radians 


IMPLICIT INPUTS: none 
OUTPUT PARAMETERS: 

VALUE: double precision floating arctangent angle of the argument 
IMPLICIT OUTPUTS: none 
SIDE EFFECTS: 
Signals: none 
NOTE: This procedure disables floating point underflow, enable integer 


overflow, causes no floating overflow or other arithmetic traps, and 
preserves enables across the call. 
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-ENTRY MTHSDATAND, ACMASK 


MTHSFLAG_JACKET 
MOVAB G*MTHSSJACKET_HND, 


MOVD  ax(AP), RO 
BSBB MTHSDATAND_R7 


7 AX/VMS Macro V04-00 Page 17 | 
14 MTHRTL. SRC RCJMTHDATAN.MAR; 1 (10) | 


; standard a Pg hag entry 
; disable DV (and FU), enable IV 
; flag that this is a jacket procedure 


; set handler address to jacket 


handler 


; in case of an error in special JSB 
; routine 

; RO/R1 = arg 

; call special DATAND rountine 

; return - result in RO 


L 16 
MTHSDATAN ; Floating Point Arc Tangent Functions 16-SEP-1984 01:14:3 AX/VMS M v04-00 P 1 
2-004 ATHSDATANE2 © Standard. Double Flsatina A Gosepe1obe STisties PANAM TS ee se OKT OO waps1 Page (18, 
238 rg a ~SBTTL MTHSDATAND2 = Standard Double Floating Arctangent With 2 Arguments 
33h fad ; FUNCTIONAL DESCRIPTION: 
33h £8 3 DATAND2 = double precision floating point function 
33 748 ; DATAND2(X,¥) is computed as following: 
055A 750: If Y = 0 or X/Y > 2e#57, DATAND2(X,Y) = 90 * (sign x) 
B23h 751; If Y > and X/Y =< #257, DATAND2(X,Y) = DATAND(X/Y) 
22h 738 3 If ¥ < 0 and X/Y¥ =< 257, DATAND2(X,Y) = 180 * (sign X) + DATAND(X/Y) 
§aea 754: 
OSSA 755 ; CALLING SEQUENCE: 
Ba3h £38 ; 
beeA eee : Arctangent2.wd.v = MTHSDATAND2(x.rd.r, y.rd.r) 
055A 759 : INPUT PARAMETERS: 
00000004 TEN 60 1 * LONG is the fi 
x = 3 s the first t 
00000008 055A 76 y = 2 * LONG 5 » is the second ereunent 
OS5A 764 ; SIDE EFFECTS: See description of MTHSDATAND 
OSSA 765; 
055A 766 ;=-=- 
055A 767 
055A 768 
40FC O55A 769 -ENTRY MTHSDATAND2, ACMASK ; standard call-by-reference entry 
055C 770 3; disable DV (and FU), enable IV 
beac 771 MTHSFLAG_ JACKET 3; flag that this is a jacket procedure 
6D 00000000 ° GF 9E O55C MOVAB G*MTHSSJACKET_HND, (FP) 
0563 : set handler address to jacket 
B203 3; handler 
0363 u on ogee of an error in special JSB 
50 04 68C 70 056 774 MOVD ax(AP), RO ; RO/R1 = arg! 
52 088C 70 B36/ eee MOVD @y(AP), R2 3 R2/R3 = arg2 
0568 777: Test if Y = 0 or X/Y¥ > 2e#57 
$368 778 ; 
31 13 0568 779 BEQL INF p66 : branch to INF_DEG if Y = 0 
54 50 # £807F AB 298 780 BICW ay - RQ. R4 : R4 = exponentTx) 
55 52 807F 8F 8 5 781 BICW #*X807F, R2, RS : RS = exponent(Y) 
54 55 A 579 7 § SUBW R5, R4 3: R4 = exponent(X) - exponent(Y) 
1D00 8F 54 Bi O57¢ 7 CMPW R4, #58*128 : sompare R4 with 58 
18 14 0981 , 4 BGTR _INF_DEG : if K/Y > 2857, branch to INF_DEG 
3 f 6 : Test if Y>Oory<0 
52 BS (05 7 8 : TSTw OR ; test the sign of Y 
14 14 Q5 7 BGTR A2PLUSD 3: branch to AZPLUSD if Y > 0 
50 B65 0QO5 790 TSTW 3; test the sign of xX 
08 18 : 9 44! BGEQ A1PLUSD : branch to ATPLUSD if X >= 0 
5 138 > ¥ <0 and X < 0 and X/Y¥ =< 20857 


M16 


Hi 
; Here if both X = 0 and Y = 0. Signal INVALID ARG TO MATH LIBRARY 


50 01 OF 79 2$: ASHQ #15, #1, RO RO/R1 = reserved operand, col80ed 
to CHF$L_MCH_SAVRO/R1 so handlers 
can change if they want to continue. 
; code for INVALID ARG TO MATH LIBRARY 
; Signal SEVERE error 


return if a handler says SS$_CONTINUE 


7E O00°8F 9A MOVZBL #MTHSK_INVARGMAT, -(SP) 
00000000'GF 01 fe CALLS #1, G*ATHSSSIGNAL 


MTHSDATAN ; Floating Point Arc Tangent Functions 16-SEP-1984 01:14:3 AX/VMS Macro v04-00 P 19 
2-004 WTHSSATAND2 © Standard Dosble Flosting A Gogepe19Be S1iatias PMTUNTS. caesaTMoAToW-mars? 29° (12, 
7% ; 
33 1 B £32 BSBB Mts hate 3; RO/R1 = DATAND(X/Y) 
50 FE27 CF 3 39 SUBD D_180, RO 3; RO/R1 = -180 + DATAND(X/Y) 
4 ie : return 
3 193 : ¥ <0 and X > 0 and X/Y =< 2#*57 
59 01 A1PLUSD: 
2B 10 59 § BSBB MTHSDATAND_R7D 3 RO/R1 = DATAND(X/Y) 
50 FEIF CF 60 59 8 ADDD i) » RO 3; RO/R1 = 180 + DATAND(X/Y) 
04 O59A 4 3 return | 
598 5 3 
598 6; Y > 0 and X/Y =< 2**57 
0598 73: 
0598 8 A2PLUSD: 
23 10 0598 9 BSBB = MTHSDATAND_R7D ; RO/R1 = DATAND(X/Y) | 
04 0590 0 RET 3; return 
059E 1; 
059E § 3; Y = 0 or X/Y > 2e*57 
059E : 
059E 4 INF_DEG: 
50 =—B5 3 5 TSTW = RO ; test the sign of x 
08 14 OSA 6 BGTR 1$ : branch if xX > 0 ; 
0Cc 13 OSA2 7 BEQL 2$ : branch if X = 0 
50 FEO8 CF 70 O5A4 8 MOVD D_M90, RO ; RO/R1 = DATAND(X/Y) = -90 
04 8 Ag ; RET 3; return 
50 FDFA CF 70 «0 1 18: MOVD D_90, RO ; RO/R1 = DATAND(X/Y) = 90 
06 0 § RET 3 return 
0 
4 4 
5 
0 6 
8 7 
8 
0 9 
0 0 
3 1 
05 : 
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| MTHSDATAN ; Float 3 py int Arc Tangent Functions Ms ak tt 4 9 1:19:38 ich Macro _V04-00 
, 2-004 MTHSDAT -R? = Special DATAND routine 6-SEP=-1984 11:21:4 MTHRTL.SRCIMTHDATAN.MAR; 1 
| 5 -SBTTL MTHSDATAND_R7 = Special DATAND routine 
} 
; Special DATAND = used by the standard routine, and directly. 
: CALLING SEQUENCES: 
: save anything needed in RO:R7 
; D TT : input in RO/R1 

; JSB MTHSDATAND_R7 

; return with resi t in RO/R1 : ' 
; Note: This routine is written to avoid causing any integer overflows, 
: floating overflows, or floating underflows or divide by 0 conditions, 
; whether enabled or not. 
| ; REGISTERS USED: 
5 RO/R1 = oe hae argument then result 
: R6 _ = Pointer into DATAND_TABLE 

: R6/R7 = Y during POLYD 

MTHSDATAND_R7D: : for local use only! 

50 52 66 DIVD R2, RO 
MTHSDATAND_R7:: : Special DATAND routine 
50) =—53 TSTF ® ; R6 = X = argument 
71 19 BLSS NEG_ARGD ; Branch to negative argument logic 


Argument is positive 


SUBW3 = #*X3ECO, RO, R6 ; Argument is less than 3/32, | 
BLSS sma ; _branch to small argument logic 
CMPW #*XO36F, R6 ; Argument is greater that 11, — 
BLSS LARGE_ARGD ; branch to large argument logic 


: Logic for positive medium sized arguments. Get pointer into DATAND_TABLE. 


56 50 SECO BFP 
56 O36F BF iB 
431 


MAOOAWOOOCODS F NWO FPWVUDOAAAA EHS NNNNVIWWO DODO OCOODOCOOOOOOOOOCOOOO 259 
0.0000 0900 00 00 0d 09 On Cd 0d 09 C9 09 09 G9 G9 Gd Cd Cd OD Od OD OS CO Oc OD CD CO OD OD Cd 09 G9 09 OP CD C9 CD C9 C9 CD CD 0D 00 Cd C0 CD Gd OP CO CD CD CD OD CD 
300000090009 90 0090 09 09 SIN NS SI NSN NN NS SIDR AO TTT TUT BB PELE EP 
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56 ~=FC 8F 9C ROTL #-4, R6, R6 ; R6 = index into AB_ATAN table 
FFFFFFOO 8F CA BICL -256, R6 : zero high order bits of index 
56 _00000000'GF46 90 MOVE G*MTHS$AB_ATANCROJ, R6 : R6 = offset into DATAND_TABLE 
FBFO cF46 0 7E MOVAQ DATAND_TABLE.*6J, R6 3; R6 = pointer to XHI 
: Compute z 
52 86 7D , MOV. —«- (R6) +, _R2 > R2 = XHI 
54 50 52 65 MULD3 R2, RO, R4 [RG = X*XHI 
54 08 860 ADDD = #1,._-RG :R4 = 1 + X*XHI 
50 (52) «(62 SUBD 2, RO > RO = X = XHI 
50 54 S66 DIVD R4: RO : RO = Z = (X = XHID/(1 + X®XHI) 
: Evaluate 2*P(Z**2) 
7E 50 7D > MOVa = RO, - = (SP) : Push Z onto the stack 
50 5064 MULD RO, R > RO = Jee2 
Fo2c CF 46006 sC*d50s5 POLYD RO. #DATANDLENI-1, DATANDTABT piace 
0 ge 64 MULD  (SP)+, RO : RO = DATAND(Z) = 2*Q(Z**2) 
0 86 60 ADDD (R6)+. RO ; RO = DATAND_XHI_LO + DATAND(7Z) 
0 66 60 ADDD (R6), RO : RO = DATANDTX) = DATAND_XHI_HI + 


1 Ee oe Ee ee See a ee eee 
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| MTHSDATAN ; Floa Point Arc Tangent Functions 16-SEP-1984 01:14:3 AX/VMS Macro V04-00 Page 21. 
2-004 MTHSDA BR? - Special DATAND routine ety OTitia3 EMTHRTL . SREIMTHDATAN.MARS 1 ’ By, 
3 (DATAND_XHI_LO + DATAND(Z)) 
05 RSB ; Return 
} 
O08—E 31 SMALLD: BRW SMALL_ARGD ; Dummy label used to avoid adding 
; «an extra insrtuction in the 
; medium argument logic 
: Large positive argument logic. 
LARGE _ARGD: 
56 00000000 0000C080 8F 50 67 DIVD3 RO, #1, R6 3: R6 = -W = -1/XK 
6 3 65 MULD3 = R6,_- RG, ; RO = Wee2 
FDO9 CF «= 0650s 75 POLYD RO, #DATANDLEN1-1, DATANDTAB1 eae: 
e = xf 
50 5664 MULD  R6, RO > RO = <LSTAND(Z) = -Z*P(Wee2) 
50 FD72 CF 60 ADDD 0_90, RO > RO = DATAND(X) = 90 = DATAND(Z) 
05 RSB 3; Return 


: Logic for negative arguments 


BEBE EEE PWIA NIGP RIPIDINPIPIPUIASIIDY 2 2 OO OS S| SOOO DTOOOOCOCOCWOWOOOOVODO 
CON AUS WN $9 OO NAU EWN HO OONAU EWN O OO NOAULS WR) O OONAUE WN" OOONAUS Wr 


ae 
0 9 
0 9 
0 9 
0 9 
0 9 
0 9 
0 9 
0 9 | 
0 9 
0 9 
0 9 
0 5 
0 § 
0 9 
0 9 
0 G 
0 916 NEG_ARGD: 
56 50 BECO 8F AZ O 9 SUBW3 #*XBECO, RO, R6 ; Argument is less than 3/32 
6 19 0 9 BLSS SMALL_ARGD ; branch to small argument logic 
56 O36F 8F B1 0 9 CMPW #*XO355F, R6 ; Argument is greater than 11, 
41 19 S 4 BLSS N_LARGE _ARGD ; branch to large argument logic 
8 4 4 3; Logic for negative medium sized arguments. Get index into DATAND_TABLE. 
56 =O FC «BF 9C 064 9 ROTL #-4, R6, R6 ; R6 = index into MTH$$AB_ATAN table 
FFFFFFOO BF CA 064C 9 BICL = #=25 : clear high order (unused) bits of ind 
56 _00000000'GF46 90 0 9 MOVB G*MTHSSAB_ATANCR6], R6 ; RO = offset into DATAN_TABLE 
FB88 CF46 = 7E e 2 MOVAQ DATAND_TABLECR6], R6 ; R6 = pointer to XH 
be 3 ; Compute Z | 
52 86 7D 066 9 MOVQ (R6)+, R2 ; R2 = XHI 
54 50 52 65 0664 9 MULD3 R2, RO, R > R4 = X*XHI 
54 08 54 63 0668 9 SUBD3 R4&, #1, R4 : R4 = 1 = X*XHI = 1 + X*(-XHI) 
50 52 60 066C 9 ADDD R2, RO ; RO = X + XHI = X = (=XHI) 
50 54 66 ven 9 DIVD R4, RO ; RO=2 
6 $ 936 ; 
po? 4 ; Evaluate Z*P(Z*#2) | 
7E 50 7D 0672 9 MOVQ RO, -(SP) ; Push Z onto the stack | 
50 50 64 067 9 MULD * ; RO = Ze*2 
FCBA CF «606 «65075 (06789 POLYD RO, #DATANDLEN1-1, DATANDTAB1 | 
5343 9 ; RO = P(Z*#2) | 
| 50 8E 64 O67E 9 MULD = (SP)+, RO ; RO = DATAND(Z) = Z*P(Z*#2) 
50 86 62 0681 9 SUBD (R6)+, RO ; RO = DATAND_XHI_LO + DATAND(Z) 
50 66 62 0684 9 SUBD (R6), RO ; RO = DATANDTX) = DATAND_XHI_HI + 
687 9 3 (DATAND_XHI_LO + DATAND(Z)) 
’ 05 0687 9 RSB ; Return 
é 0688 948 ; | 
| | 
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Logic for large negative arguments 


MTHRTL.S RCIM MTHDATAN.MAR; 1 


RO, #-1, R6 > R6 = W = 1/IX! 
R6, R6, R * RO = Wee 
RO, #DATANDLEN1-1, DATANDTAB1 
: RO = P(Wee2) 
R6, RO + RO = DATAND(W) = WeP(Wee2) 
D_90, RO ; RO = DATAND(X) = DATAND(W) = 90 
. Return 


> Small argument logic. 


RO. R6 ; R6 = argument = X 
#*x8000, RO 3: RO = ix! 
#943280, RO ; Compare 2*=-28 to IX! 2 
1$ ; Branch to ra coar et evaluation 
D_P1_OV_180_M_64, R6 ,RO; RO = X*(pi/180 - 64) 
RO, R RO RO s Xexe2 
RO, MDATANDLEN2=1, DATANBTAB2 
3 RO = Q(X*#*2) 
R6, RO 3 RO = X*Q(X#22) 
#*X300, R6 3 RE = Xe2ee6 
R6, RO : RO = DATAND(X) = X#2"#6 + XeQ(X*#2) 
3; Return 
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Symbol table SEP MTMRTL. SRCIMTHDATAN, MAR; 1 (12), 2~( 
AIPLUS 0000409 R 1 
A1PLUSD 09 203 R 1 
gPLus 00411 R 1 
A2PLUSD 00059B R 1 
MASK = QQ0040FC | 
DATANDLEN1 = 9900007 | 
DATANDLEN2 = 00000 97 
DATANDTAB1 0000338 01 | 
DATARDTAB2 00000370 R 01 
DATAND_ TABLE 00000168 01 
Ai = $0099007 | 
DATANTAB1 $0909 $0 R 01 | 
DATANTAB2 00000188 R 01 
DATAN_TABLE 00000000 R 01 
D_180 90000388 R 01 
D790 000003A8 R 01 
D790 00000380 R 01 
D"MP1_OVER_2 000001D0 R 01 
D7PI 000001C0 R 01 
D"PI_OVER_2 000001C8 R 01 
D~P1"OVER~2_HI 000001D8 R 01 
D"PI“OVER@2-L 000001E0 R 01 
D-P1~OV_180-M_64 000003A0 R 01 
INF 00000414 R 01 
INF_DEG 0000059E R 01 
LARGE_ARG OO000048F R 01 
LARGE ~ARGD 00000619 R 01 
LONG = 00000004 
MTH$SAB_ATAN teeeeeee xX 00 
erreepsatxet _HND eeeeeere XxX 01 
MTHS$SIGNA atereene 00 
MTHSDATAN 000003C0 RG = 01 
MTHSDATANZ 000003D0 RG = 01 
MTHSDATAND 0000054A RG 01 
MTHSDATAND2 0000055A RG 01 
MTHSDATAND_R7 000005¢3 RG = 01 
MTHSDATAND -R7D 000005C0 R 01 
MTHSDATAN_R7 00000439 RG = 01 
MTHSDATAN~R7D 00000436 R 01 
MTHSK_INVARGMAT eereeeee = X 00 
NEG_ARG 00000483 R 01 
NEG” ARGD 00000638 R 01 
N_LARGE_ ARG 90000503 R 01 | 
N~ LARGE —ARGD 0000688 R 01 
ALL 0000048C R 01 
SMALLD 90000616 R 01 
SMALL_ARG 00000527 R ~—- 01 | 
SMALL “ARGD 000006A7 R 01 
= 90000004 
’ = 00000008 
1 
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Psect synopsis 


PSECT name Allocation PSECT No. Attributes 

2 00000000 <¢ 0.) 00 ¢ QO.) NOPIC USR CON ABS LC 

_MTHSCODE 00000605 ( 1749.) 01 ¢ 1.) PIC USR CON’ REL LC 
$e eer oer eeensoen eae emreoone + 
: Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization — 30 00: 00:00.18 00:00:01.09 

Command processing 152 00:00:00.70 es 

Pass 115 ET 00:00:07.34 

Symbol table sort 0 00:00:00.02 bs Sea 

Pass 178 00:00:02.11 0:00:06.41 

Symbol table output 8 00:00:00.05 00:00:00.08 

Psect synopsis output 2 00:00:00.02 00:00:00.03 

Cross-reference output Q 00:00:00.00 00:00:00.00 

Assembler run totals 487 00:00:05.51 00:00:19.18 


The working set Limit was 1050 pages. : . 

16195 bytes (32 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 51 non-local and 8 local symbols. 
1042 source Lines were read in Pass 1, producing 22 object records in Pass 2. 

1 page of virtual memory was used to define 1 macro. 


Macro Library name 


.$255$DUA28: CSYSLIBISTARLET.MLB;2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 


AX/VM 
MTHRT 


S 
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L NOSHR NOEX 
L SHR Xx 


Macro 


SRCJ 


v04-00 
MTHDATAN.MAR; 1 


Page 


E NORD NOWRT NOVEC BYTE 


EXE 


RD NOWRT WOVEC LONG 
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MACRO/EWABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHDATAN/OBJ=OBJ$:MTHDATAN MSRC$:MTHJACKET/UPDATE=(ENHS$:MTHJACKET) +MSRC 
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